home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Mouse Refresh.xpl < prev    next >
Text File  |  2001-07-12  |  2KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Mouse\General Options"
  5. "NAME"="Refresh Rate"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.20"
  8. "OSVERSION"="0101011"
  9. "TEXT 1"="Rate"
  10. "DESCRIPTION 1"="Sometimes the mouse cursor in Windows NT flickers because the refresh rate of the mouse port is to slow."
  11. "DESCRIPTION 2"="You can use this setting to adjust the refresh rate of the port. The default value is 60, the highest value is 200 (higher number = smoother)."
  12. "DESCRIPTION 3"="NOTE: It has been reported that this setting has no effect if you are using an ACPI-compilant PC and Windows 2000/XP.  If this happens, use the Mouse Control Panel applet."
  13. "DESCRIPTION 4"="WARNING: If you are using a notebook with a build-in mouse replacement (e.g. the Mouse Stick between the "G" and "H" keys), changing this option might make your mouse replacement UNUSABLE!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Thanks to SMσK [mailto:smak-@gmx.net] for the bug-fix!"
  18. "COMMENT 2"="Thanks to Ray Anderson [rayda@us.ibm.com] for the "notebooks don't like it" notice..."
  19.  
  20.  
  21. sP="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters\SampleRate"
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize
  25.     i=RegReadValue(sP)
  26.     if IsEmpty(i) then
  27.        SetUIElement 1,""
  28.     else
  29.        SetUIElement 1,i
  30.     end if
  31. END SUB
  32.  
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  
  38.  if len(s)>0 then 
  39.     Call RegWriteValue(sP,s,1)
  40.  else
  41.     if RegValueExists(sP) then RegDeleteValue(sP)
  42.  end if
  43.  
  44.  Call Restart()
  45. END SUB
  46.  
  47. 'Called when the Plugin is about to be removed from memory
  48. SUB Plugin_Terminate
  49. END SUB
  50.